r,s,t:rationals. ((r + s) * t) = ((r * t) + (s * t))  rationals 

latex

Definitions	ff, tt, qinv(r), if b then t else f fi , qdiv(r; s), P  Q, t  T, P  Q, qeq(r; s), P  Q, r + s, r * s, x:A. B(x), False, nequal(T; a; b), A, A c B, int_nzero, x:A. B(x), P  Q, prop{i:l}
Lemmas	rationals wf, qeq wf2, assert wf, assert of eq int, int nzero properties, q-elim, qadd wf, qmul wf, assert-qeq